home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / COMPKARA.DSK / COMPETITION KARATE.bas next >
BASIC Source File  |  2014-09-09  |  5KB  |  40 lines
  1. 10  REM  (C) 1984 EDWARD BADASOV
  2. 11  REM  COMPETITION KARATE
  3. 90  ONERR  GOTO 19000
  4. 91  PRINT  CHR$(4)"MAXFILES1"
  5. 92  HIMEM: 34468:D$ =  CHR$(4)
  6. 95  PRINT D$"BLOADUL.0,A8192,D1"
  7. 100  POKE  -16297,0: POKE  -16302,0: POKE  -16304,0: POKE  -16300,0
  8. 102  PRINT D$;"BLOADUL.1,D1"
  9. 105  CALL 37544: GOSUB 12000: VTAB 24: HTAB 5: POKE 6,46: POKE 7,3: CALL 768: PRINT "[ANY KEY]=GAME    [D]=DEMO MATCH";:FL% = 0: GOTO 10012
  10. 1000  IF  PEEK( -16384) <128  THEN 1500
  11. 1005 B% =  PEEK( -16384): PRINT  CHR$(16):FL% = 1: GOSUB 10000
  12. 1100  POKE 34,0: POKE 35,24
  13. 1102  PRINT : PRINT D$"PR#0"
  14. 1103  PRINT D$"IN#0"
  15. 1106  CALL 1002
  16. 1107  GOSUB 50000: IF B% = 196  THEN 15000
  17. 1108  PRINT : PRINT D$"RUNP20,D1"
  18. 1500  FOR J = 1 TO 40: NEXT : RETURN 
  19. 10000  VTAB V%: HTAB I: PRINT DM$(D%,6);: VTAB V%: HTAB I +AD% +1 *(A% = 0): PRINT DM$(A%,6);: IF FL%  THEN  RETURN 
  20. 10004  FOR X = 1 TO 25: GOSUB 1000: NEXT 
  21. 10005  PRINT  CHR$(16): VTAB V%: HTAB I: PRINT DM$(D%,8);: VTAB V%: HTAB I +AD% +1 *(A% = 0): PRINT DM$(A%,8);: FOR X = 1 TO 15: GOSUB 1000: NEXT 
  22. 10010  VTAB V%: HTAB I: PRINT DM$(D%,9);: GOSUB 1000: GOSUB 1000: GOSUB 1000: HTAB I +AD% +1 *(A% = 0): VTAB V%: PRINT DM$(A%,9);: FOR X = 1 TO 15: GOSUB 1000: NEXT : RETURN 
  23. 10012  POKE  -16368,0: POKE 34,17: POKE 35,22:V% = 18:KB% =  -16384:ST% = 18:SP% =  -1:EN% = 6:A% = 1:D% = 0:AD% = 3:I = ST%: GOSUB 10000: GOSUB 10017
  24. 10013 ST% = 8:EN% = 32:SP% = 1:A% = 0:D% = 1:AD% =  -4: GOSUB 10017:ST% = 29:EN% = 6:SP% =  -1:A% = 1:D% = 0:AD% = 3: GOSUB 10017: GOTO 10013
  25. 10017  PRINT  CHR$(16): FOR I = ST% TO EN%  STEP SP%: VTAB V%: HTAB I: PRINT DM$(D%,0);: VTAB V%: HTAB I +AD%: PRINT DM$(A%,0);: GOSUB 1000
  26. 10020  VTAB V%: HTAB I: PRINT DM$(D%, INT( RND(1) *2) +3);: VTAB V%: HTAB I +AD% +1 *(A% = 0): PRINT DM$(A%, INT( RND(1) *2) +1);: GOSUB 1000: GOSUB 1000: NEXT 
  27. 10031  VTAB V%: HTAB I -1 *(A% = 1): PRINT DM$(D%,0);: VTAB V%: HTAB I +AD%: PRINT DM$(A%,0);: FOR X = 1 TO 15: GOSUB 1000: NEXT 
  28. 10032  PRINT  CHR$(16): VTAB V%: HTAB I: PRINT DM$(D%,6);: VTAB V%: HTAB I +AD% +1 *(A% = 0): PRINT DM$(A%,6);: FOR X = 1 TO 15: GOSUB 1000: NEXT 
  29. 10035  VTAB V%: HTAB I: PRINT DM$(D%,6);: VTAB V%: HTAB I +AD% +1 *(A% = 0): PRINT DM$(A%,7);: FOR X = 1 TO 30: GOSUB 1000: NEXT : GOSUB 10005: RETURN 
  30. 12000 DM$(0,0) = "<CTRL-B><CTRL-A>2<CTRL-K>  A  <CTRL-C> BCD <CTRL-C> FGH <CTRL-C> IJK <CTRL-C> LMN <CTRL-D>":DM$(1,0) = "<CTRL-B><CTRL-A>2<CTRL-K>  E  <CTRL-C> OPQ <CTRL-C> RST <CTRL-C> UVW <CTRL-C> XYZ <CTRL-D>":DM$(0,1) = "<CTRL-B><CTRL-A>2    <CTRL-C> 345<CTRL-C> 786<CTRL-C> 0:,<CTRL-C>-# .<CTRL-D>":DM$(1,1) = "<CTRL-B><CTRL-A>2    <CTRL-C>$%& <CTRL-C>'() <CTRL-C>*+/ <CTRL-C>< !><CTRL-D>"
  31. 12003 DM$(0,2) = "<CTRL-B><CTRL-A>2<CTRL-L>    <CTRL-C>CDBM<CTRL-C>GFHK<CTRL-C>IJ  <CTRL-C>LN  <CTRL-D>":DM$(1,2) = "<CTRL-B><CTRL-A>2<CTRL-L>    <CTRL-C>XOQP<CTRL-C>VRTS<CTRL-C>  UW<CTRL-C>  YZ<CTRL-D>":DM$(0,3) = "<CTRL-B><CTRL-A>3<CTRL-L>    <CTRL-C>BCD <CTRL-C>FG  <CTRL-C>IJ  <CTRL-C>LM  <CTRL-D>":DM$(1,3) = "<CTRL-B><CTRL-A>3<CTRL-L>    <CTRL-C> OPQ<CTRL-C>  ST<CTRL-C>  UV<CTRL-C>  YZ<CTRL-D>":DM$(0,4) = "<CTRL-B><CTRL-A>31   <CTRL-C>43  <CTRL-C>67  <CTRL-C>892 <CTRL-C>0:5 <CTRL-D>"
  32. 12006 DM$(1,4) = "<CTRL-B><CTRL-A>3   +<CTRL-C>  !#<CTRL-C>  $%<CTRL-C> &'(<CTRL-C> )*=<CTRL-D>":DM$(0,6) = "<CTRL-B><CTRL-A>1<CTRL-K> A <CTRL-C>BCD<CTRL-C>FGH<CTRL-C>IJK<CTRL-C>LMN<CTRL-D>":DM$(1,6) = "<CTRL-B><CTRL-A>1<CTRL-K> E <CTRL-C>OPQ<CTRL-C>RST<CTRL-C>UVW<CTRL-C>XYZ<CTRL-D>":DM$(0,7) = "<CTRL-B><CTRL-A>1<CTRL-K>1A2<CTRL-C>3C4<CTRL-C>5G6<CTRL-C>IJK<CTRL-C>LMN<CTRL-D>":DM$(1,7) = "<CTRL-B><CTRL-A>1<CTRL-K>!E#<CTRL-C>$P%<CTRL-C>&S'<CTRL-C>UVW<CTRL-C>XYZ<CTRL-D>"
  33. 12009 DM$(0,8) = "<CTRL-B><CTRL-A>1<CTRL-L>DA<CTRL-C>BC<CTRL-C>FG<CTRL-C>IJ<CTRL-C>LM<CTRL-D>":DM$(1,8) = "<CTRL-B><CTRL-A>1<CTRL-L> EH<CTRL-C> KN<CTRL-C> OP<CTRL-C> QR<CTRL-C> ST<CTRL-D>":DM$(0,9) = "<CTRL-B><CTRL-A>1<CTRL-L> 87<CTRL-C>90:<CTRL-C>,.-<CTRL-C>IJ<CTRL-C>LM<CTRL-D>":DM$(1,9) = "<CTRL-B><CTRL-A>1<CTRL-L>() <CTRL-C>*=+<CTRL-C><>?<CTRL-C> QR<CTRL-C> ST<CTRL-D>": RETURN 
  34. 15000  POKE  -16303,0: HOME : INVERSE : HTAB 15: PRINT " DEMO MATCH ": NORMAL : POKE 34,7: HOME : PRINT "ONE ETERNAL MOMENT PLEASE,  WHILE WE    PROCEED TO THE ARENA FOR A MATCH BETWEEN<HOT FOOT> AND <IRON PALM>."
  35. 15020  PRINT : PRINT : PRINT "DURING ACTUAL PLAY OF THIS GAME, YOU ANDYOUR FRIENDS WILL CREATE AND CONTROL    YOUR OWN MARTIAL ARTS STUDENTS/FIGHTERS."
  36. 15030  PRINT : PRINT "BY COMPETING IN MULTI-PLAYER TOURNAMENTSAND WORKING OUT IN THE DOJO, EACH OF    YOUR STUDENTS WILL GAIN MARTIAL ARTS    EXPERTISE AND RECEIVE BELT PROMOTIONS.": POKE 815,1
  37. 16000  PRINT D$"RUNP17,D1"
  38. 19000  CALL 803
  39. 50000 L0$ = "========================================": HOME : PRINT L0$: VTAB 3: PRINT L0$: VTAB 2: HTAB 3:A$ = "COMPETITIONKARATE": FOR I = 1 TO 17: FLASH : PRINT  MID$ (A$,I,1);: NORMAL : PRINT " ";: IF I = 11  THEN  PRINT "   ";
  40. 50030  NEXT : PRINT : VTAB 5: POKE 34,4: RETURN